home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4 / Atari Forever 4.iso / PD_THEMA / CLI / SSL_CLI.1_4 / DEMO.BAT < prev   
Encoding:
DOS Batch File  |  1998-03-14  |  2.4 KB  |  146 lines
  1. @ECHO=OFF
  2. WRAP=OFF
  3. REM   Copyright 1991: Stephan Slabihoud
  4. CLS
  5. CLEAR
  6. IF%1= "" kein_parameter
  7.  
  8. :weiter
  9. CLS
  10. WRAP=OFF
  11. ECHO
  12. ECHO  ##############################################################################
  13. ECHO  #                                                                            #
  14. ECHO  #==================> Demonstrationsbatchdatei zum SSL-CLI. <=================#
  15. ECHO  #                                                                            #
  16. ECHO  #                         Aufruf: DEMO.BAT [Laufwerk:]                       #
  17. ECHO  #                                                                            #
  18. ECHO  ##############################################################################
  19. ECHO
  20. WRAP=ON
  21. ECHO  Bearbeite Laufwerk: %1
  22. ECHO
  23. ECHO   1) ... Mappingausgabe
  24. ECHO   2) ... Belegungstabelle
  25. ECHO   3) ... Statistik
  26. ECHO   4) ... Laufwerk für 1),2),3) ändern
  27. ECHO
  28. ECHO   8) ... Löschen von Dateien (rekursiv)
  29. ECHO   9) ... Ausgabe der Dateistruktur auf Diskette
  30. ECHO   0) ... ENDE
  31.  
  32. :loop
  33. GETKEY
  34. IFERR= 57 dis
  35. IFERR= 56 lös
  36. IFERR= 52 cha
  37. IFERR= 51 sta
  38. IFERR= 50 chk
  39. IFERR= 49 map
  40. IFERR= 48 ende
  41. GOTO loop
  42.  
  43. :dis
  44. CLS
  45. CLEAR
  46. ECHO
  47. ECHO  Ausgabedatei wählen!
  48. FILESELECT
  49. SET%2 "%L"
  50. IF%2= "" weiter
  51. ECHO  Ab welchem Ordner soll die Struktur ausgegeben werden?
  52. FILESELECT
  53. SET%3 "%L"
  54. IF%3= "" weiter
  55. STREE %3
  56. SSAVE %2
  57. GOTO weiter
  58.  
  59. :cha
  60. ECHO
  61. WRITE  Neues Laufwerk eingeben (z.B. "C:") =>
  62. INPUT%1
  63. GOTO weiter
  64.  
  65. :sta
  66. CLS
  67. STAT %1
  68. PAUSE
  69. GOTO weiter
  70.  
  71. :map
  72. MAPPING %1
  73. PAUSE
  74. GOTO weiter
  75.  
  76. :chk
  77. CLS
  78. CHKDSK %1
  79. PAUSE
  80. GOTO weiter
  81.  
  82. :lös
  83. CLEAR
  84. CLS
  85. ECHO
  86. ECHO  Ordner und Filemaske bestimmen, danach OK! Für "%1\*.BAK" <Abbruch> wählen!
  87. FILESELECT
  88. CLS
  89. SET%2 "%L"
  90. IF%2= "" keine_maske
  91.  
  92. :weiter2
  93. ECHO
  94. ECHO  Bearbeite: %2
  95. ECHO
  96. STREE %2
  97. IFERR= 0 leerer_stack
  98.  
  99. :loop2
  100. ECHO  Soll %E gelöscht werden? (Ja/Ende/Alle/*)
  101. GETKEY
  102. IFERR= 74 lösche
  103. IFERR= 106 lösche
  104. IFERR= 69 weiter
  105. IFERR= 101 weiter
  106. IFERR= 65 alle
  107. IFERR= 97 alle
  108. POP
  109. IFERR= 0 weiter
  110. GOTO loop2
  111.  
  112. :lösche
  113. DEL %E
  114. ECHO  %L ...gelöscht !!!
  115. GOTO loop2
  116.  
  117. :alle
  118. DEL %A
  119. GOTO weiter
  120.  
  121. :keine_maske
  122. ECHO
  123. ECHO  Es wurde kein Parameter angegeben! Soll "%1\*.BAK" angenommen werden? (Ja/*)
  124. ECHO
  125. SET%2 "%1\*.BAK"
  126. GETKEY
  127. IFERR= 74 weiter2
  128. IFERR= 106 weiter2
  129. GOTO weiter
  130.  
  131. :leerer_stack
  132. ECHO
  133. ECHO  Keine Datei gefunden!
  134. ECHO
  135. PAUSE
  136. GOTO weiter
  137.  
  138. :kein_parameter
  139. ECHO
  140. ECHO  Es wurde kein Laufwerk angegeben!
  141. ECHO
  142. :ende
  143. ECHO
  144. END
  145.  
  146.